﻿Public Class frmReport

    Private Sub setGrid()
        Dim sqlStr = "select classname as 班次,crt_date as 时间,prodsum as 总产品数,badprodsum as 次品数, stackno as 垛数, stacknum as 包数, linecode as 生产线 from t_prodlinedate order by crt_date desc"
        Dim datatable As DataTable = execSQLQuery(sqlStr)
        Me.dgvReport.DataSource = datatable
    End Sub

    Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        setGrid()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class